CD Fun House 1/CD Fun House (Wayzata Technology).iso/•AdventureLand•/Adventures/HyperQuest 1.03 •••/HyperQuest 1.03 еее/card_28289.txt

Text File | 1990-10-02 | 7KB | 321 lines

-- card: 28289 from stack: in.03 –µ–µ–µ
-- bmap block id: 4367
-- flags: 0000
-- background id: 2766
-- name:
----- HyperTalk script -----
on openCard
  send cardOpened to background
end openCard

on move
  global direction,blastDam,holeDam,chase,blasting
  if direction = "east" then
    go to card id 28895
    exit move
  end if
  if direction = "west" then
    go to card id 27307
    exit move
  end if
  if direction = "down" then
    answer "Into the dam room, or the dry reservoir?" with "dam room" or "reservoir"
    if it="dam room" then
      go to card id 27307
    else
      go to card id 28895
    end if
    exit move
  end if
  pass move
end move


on closeCard
  set the cursor to 4
  put "" into field 3
end closeCard

on take
  global object,carried
  -- remember to update carried if you do not pass take
  pass take
end take

on drop
  global object,dropRoom,carried,holeDam
  answer "Drop object where (dam, room, or reservoir)?" with "reservoir" or "dam room" or "on dam"
  if it="dam room" then put "27307" into dropRoom
  if it="reservoir" then put "28895" into dropRoom
  -- remember to update carried if you do not pass drop
  pass drop
end drop

on use
  global object,carried
  -- update carried if use results in loss of object
  pass use
end use



-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=122 top=230 right=266 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=89 top=195 right=231 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=122 top=195 right=231 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=122 top=160 right=196 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a time bomb" into field 3
put false into examFlag
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=89 top=160 right=196 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=113 top=125 right=161 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp



-- part 22 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=80 top=125 right=161 bottom=114
-- title width / last selected line: 0
-- icon id / first selected line: 23078 / 23078
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: orb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a crystal orb" into field 3
put false into examFlag
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=173 top=225 right=265 bottom=253
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "a dry (although slightly damp) reservoir" into field 3
    put false into examFlag
  else
    put "east" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=2 top=98 right=133 bottom=38
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID,takeFlag
  if examFlag then
    put "a tunnel leading north from the dam room." into field 3
    put false into examFlag
  else
    put false into takeFlag
    beep
    put "Get off the dam first." into field 3
  end if
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=1 top=137 right=263 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "the dam room." into field 3
    put false into examFlag
  else
    put "west" into direction
    send move to card id cardID
  end if
end mouseUp



-- part contents for background part 25
----- text -----
Top of Crystal Dam
(looking north)

-- part contents for background part 24
----- text -----
You are on top of the crystal dam.  The dam is about two feet wide at the top.  Down to the west is a large room.  Down to the east is a very large reservoir, now empty.


-- part contents for background part 36
----- text -----
1